home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / background_3837.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  319 lines
  1. -- background: 3837 from stack: in.2r
  2. -- bmap block id: 10061
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: XFCNs
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   set scroll of field description to 0
  10.   set scroll of field syntax to 0
  11. end opencard
  12.  
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=228 top=306 right=331 bottom=255
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 1014 / 1014
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Prev
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   if the optionkey is down then pass mouseup
  30.   visual effect wipe right
  31.   go to previous card
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 2 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=280 top=306 right=331 bottom=307
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 1013 / 1013
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Next
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if the optionkey is down then pass mouseup
  51.   visual effect wipe left
  52.   go to next card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 5 (field)
  58. -- low flags: 01
  59. -- high flags: 0000
  60. -- rect: left=57 top=23 right=57 bottom=340
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 0
  64. -- font id: 2
  65. -- text size: 24
  66. -- style flags: 0
  67. -- line height: 32
  68. -- part name: Name
  69.  
  70.  
  71. -- part 6 (field)
  72. -- low flags: 00
  73. -- high flags: 4007
  74. -- rect: left=54 top=69 right=299 bottom=309
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 3
  79. -- text size: 9
  80. -- style flags: 0
  81. -- line height: 12
  82. -- part name: description
  83. ----- HyperTalk script -----
  84. on mousewithin
  85.   --This uses the ART hypertext method to link to another card.
  86.   --It calls the HyperText function in the stack script
  87.   if selection is not empty then put HyperText(selection) into it
  88. end mousewithin
  89.  
  90.  
  91.  
  92. -- part 9 (button)
  93. -- low flags: 00
  94. -- high flags: A003
  95. -- rect: left=332 top=306 right=326 bottom=448
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Resource Mover
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   ResCopy
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 10 (field)
  112. -- low flags: 01
  113. -- high flags: 0000
  114. -- rect: left=255 top=311 right=327 bottom=282
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 3
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: PageNumber
  123.  
  124.  
  125. -- part 7 (field)
  126. -- low flags: 00
  127. -- high flags: 0007
  128. -- rect: left=311 top=69 right=299 bottom=493
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 3
  133. -- text size: 9
  134. -- style flags: 0
  135. -- line height: 12
  136. -- part name: syntax
  137. ----- HyperTalk script -----
  138. on mousewithin
  139.   --This uses the ART hypertext method to link to another card.
  140.   --It calls the HyperText function in the stack script
  141.   if selection is not empty then put HyperText(selection) into it
  142. end mousewithin
  143.  
  144.  
  145.  
  146. -- part 13 (button)
  147. -- low flags: 00
  148. -- high flags: 2000
  149. -- rect: left=456 top=301 right=329 bottom=493
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 11645 / 11645
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Return
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   if the optionkey is down then pass mouseup
  161.   visual effect iris close
  162.   go first card
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 20 (button)
  168. -- low flags: 00
  169. -- high flags: 2004
  170. -- rect: left=2 top=74 right=117 bottom=49
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 14767 / 14767
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: About...
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   if the optionkey is down then pass mouseup
  182.  
  183.   visual iris open to gray
  184.   visual iris close to black
  185.   visual iris open to gray
  186.   visual iris close
  187.   go background information
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 21 (button)
  193. -- low flags: 00
  194. -- high flags: 2004
  195. -- rect: left=2 top=119 right=162 bottom=49
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 29114 / 29114
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Back
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   if the optionkey is down then pass mouseup
  207.   visual barn door close to black
  208.   visual barn door open
  209.   pop card
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 22 (button)
  215. -- low flags: 00
  216. -- high flags: 2004
  217. -- rect: left=2 top=164 right=207 bottom=49
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 1011 / 1011
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Home
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   if the optionkey is down then pass mouseup
  229.   go first card of home
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 23 (button)
  235. -- low flags: 00
  236. -- high flags: 2004
  237. -- rect: left=2 top=209 right=252 bottom=49
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 1000 / 1000
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Open Stack
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   if the optionkey is down then pass mouseup
  249.   domenu "open stack..."
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 24 (button)
  255. -- low flags: 00
  256. -- high flags: 2004
  257. -- rect: left=2 top=254 right=297 bottom=49
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 17343 / 17343
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: Launch Application
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   if the optionkey is down then pass mouseup
  269.   visual venetian blinds to gray
  270.   visual venetian blinds to black
  271.   visual venetian blinds to gray
  272.   visual venetian blinds
  273.  
  274.   go to background "Mini HyperStation"
  275.  
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 25 (button)
  281. -- low flags: 00
  282. -- high flags: 2004
  283. -- rect: left=2 top=299 right=342 bottom=49
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 21786 / 21786
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Menus Off
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   if the optionkey is down then pass mouseup
  295.  
  296.   if menubar("¬©1988SDrazga") then hide menubar else show menubar
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 26 (button)
  302. -- low flags: 00
  303. -- high flags: A003
  304. -- rect: left=82 top=302 right=324 bottom=182
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: Install
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   if the optionkey is down then pass mouseup
  316.   put installres(XFCN,field "name") into it
  317. end mouseUp
  318.  
  319.